home *** CD-ROM | disk | FTP | other *** search
/ By Popular Request 2.0 / By Popular Request 2.0 (Arsenal Computer).ISO / amiga_2 / cnttlkt2.lha / Routines / EDATE < prev    next >
Text File  |  1994-12-13  |  160b  |  3 lines
  1. EDATE: procedure;arg da,mo;if mo='I' then da=date('s',da,'i')
  2.   return left(date('w',da,'s'),3)right('  'strip(translate(date('n',da,'s'),'-',' '),'L','0'),12)
  3.